home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 April / 64er_Magazin_92-04_1992_Markt__Technik_de_Side_A.d64 / f-c (flop).seq < prev    next >
Encoding:
Text File  |  1992-01-01  |  777 b   |  31 lines
  1. ;speeder floppy->computer (floppy route)
  2.  
  3.    ldx #$10     ;
  4. l1 lda $1800    ;auf atn
  5.    bpl l1       ;warten
  6.    stx $1800    ;data setzen
  7. l2 lda puffer,y ;datenbyyte holen
  8.    sta $c1      ;und sichern
  9.    lsr a        ;highnibble
  10.    lsr a        ;isolieren
  11.    lsr a        ;
  12.    lsr a        ;
  13. l3 ldx $1800    ;wieder auf atn warten
  14.    bpl l3       ;
  15.    sta $1800    ;bits 5 und 7
  16.    asl a        ;uebertragen
  17.    and #$0f     ;bits 4 und 6
  18.    sta $1800    ;uebertragen
  19.    lda $c1      ;datenbyte holen
  20.    and #$0f     ;und bits 1 und 3
  21.    sta $1800    ;uebertragen
  22.    asl a        ;
  23.    and #$0f     ;bits 0 und 2
  24.    sta $1800    ;uebertragen
  25.    iny          ;und
  26.    bne l2       ;naechstes byte
  27.    ldx #$0f     ;atn
  28.    stx $1800    ;zuruecksetzen
  29.    rts          ;und rueckkehr
  30.  
  31.